home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / BASIC / EXTERN.BAS < prev    next >
BASIC Source File  |  2000-09-26  |  515b  |  24 lines
  1. DECLARE SUB copyvideo2buf(LONG,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER)
  2. DECLARE SUB copybuf2video(LONG,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER)
  3.  
  4. $LINK "C:\SPRACHEN\PCINTERN\PAS\S6435PA.OBJ"
  5.  
  6. SCREEN 12
  7. line (0,0)-(640,480),15,bf
  8. for i=0 to 15
  9.  color i
  10.  print "test test test 1234567890 1234567890 1234567890"
  11. next
  12.  
  13. b$=string$(30000,chr$(0))
  14. sg=STRSEG(b$)
  15. ofs=STRPTR(b$)
  16. l&=(ofs*65536)+sg
  17.  
  18. beep
  19. CALL copyvideo2buf(l&,0,16,16,640/8,32)
  20. CALL copybuf2video(l&,0,32,32,640/8,32)
  21. sound 1000,1
  22. end
  23.  
  24.